'
' @Author: 一日看尽长安花
' @since: 2022-02-23 12:39:39
' @LastEditTime: 2022-02-24 16:40:02
' @LastEditors: 一日看尽长安花
' @Description:
'
'  变量声明
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe",8,false
WScript.Sleep 1500

WshShell.SendKeys "E:"
WshShell.SendKeys "{ENTER}"

WshShell.SendKeys "cd E:\code_workspace\idea\BenefitCode\shell_script\win\rocketmq"
WshShell.SendKeys "{ENTER}"

WshShell.SendKeys "start /MIN start-nameserver.bat"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 5000

WshShell.SendKeys "start /MIN start-broker.bat"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 5000

WshShell.SendKeys "start /MIN dashboard.bat"
WshShell.SendKeys "{ENTER}"

WshShell.SendKeys "exit"
WshShell.SendKeys "{ENTER}"
